home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / HyperApp -326271112001.psc / HAFormHandler.cls < prev    next >
Encoding:
Visual Basic class definition  |  2001-11-01  |  909 b   |  35 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "HAFormHandler"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. 'HyperApp Demo Object
  17. 'FormHandler - sample object for retrieving form information
  18.  
  19. Private m_hApp As HyperApp
  20.  
  21. Public Sub Init(happ As HyperApp)
  22.     Set m_hApp = happ
  23.     
  24. End Sub
  25.  
  26. Public Sub CheckForm()
  27.  
  28.     MsgBox "POST Data: " & StrConv(m_hApp.GetLastPostData, vbUnicode)
  29.     MsgBox "Headers: " & m_hApp.GetLastHeaders
  30.     
  31.     MsgBox "Full Name text box contains " & m_hApp.GetTextValue(0, "FullName")
  32.     MsgBox "Email text box contains " & m_hApp.GetTextValue(0, "EMail")
  33.     
  34. End Sub
  35.